home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / ETAGS.ELC < prev    next >
Text File  |  1993-03-28  |  24KB  |  251 lines

  1. ;;; compiled by jwz@thalidomide on Sun Dec 13 17:53:18 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/etags.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'tags-delete #[(item list) "¼é┴ç\n@ܽå├\nA\"ç@├\nA\"Bç" [list nil item tags-delete] 4 "\
  14. delete the item from the list, testing with equal.  Copies the list."])
  15. (fset 'tags-remove-duplicates #[(list) "¼é┴ç@┬├@A\"!Bç" [list nil tags-remove-duplicates tags-delete] 5 "\
  16. delete equal duplicates from the list; copies the list."])
  17. (fset 'generate-new-buffer-name #[(name) "└    !¼é    ç┬    ├P─╚╔ì+ç" [get-buffer name 1 "<%d>" nil tempname template count found (byte-code "└    \n\"─ !¼à┼╞ \"ê\nT¬l" [format template count tempname get-buffer throw found] 3)] 3 "\
  18. Foo"])
  19. (defvar tags-build-completion-table 'ask "\
  20. *If this variable is nil, then tags completion is disabled.
  21. If this variable is t, then things which prompt for tags will do so with 
  22.  completion across all known tags.
  23. If this variable is the symbol `ask', then you will be asked whether each
  24.  tags table should be added to the completion list as it is read in.
  25.  (With the exception that for very small tags tables, you will not be asked,
  26.  since they can be parsed quickly.)")
  27. (defvar tag-table-alist nil "\
  28. *A list which determines which tags files should be active for a 
  29. given buffer.  This is not really an association list, in that all 
  30. elements are checked.  The CAR of each element of this list is a 
  31. pattern against which the buffer's file name is compared; if it 
  32. matches, then the CDR of the list should be the name of the tags
  33. table to use.  If more than one element of this list matches the
  34. buffer's file name, then all of the associated tags tables will be
  35. used.  Earlier ones will be searched first.
  36.  
  37. If the CAR of elements of this list are strings, then they are treated
  38. as regular-expressions against which the file is compared (like the
  39. auto-mode-alist).  If they are not strings, then they are evaluated.
  40. If they evaluate to non-nil, then the current buffer is considered to
  41. match.
  42.  
  43. If the CDR of the elements of this list are strings, then they are
  44. assumed to name a TAGS file.  If they name a directory, then the string
  45. \"TAGS\" is appended to them to get the file name.  If they are not 
  46. strings, then they are evaluated, and must return an appropriate string.
  47.  
  48. For example:
  49.   (setq tag-table-alist
  50.     '((\"/usr/src/public/perl/\" . \"/usr/src/public/perl/perl-3.0/\")
  51.      (\"\\\\.el$\" . \"/usr/local/emacs/src/\")
  52.      (\"/jbw/gnu/\" . \"/usr15/degree/stud/jbw/gnu/\")
  53.      (\"\" . \"/usr/local/emacs/src/\")
  54.      ))
  55.  
  56. This means that anything in the /usr/src/public/perl/ directory should use
  57. the TAGS file /usr/src/public/perl/perl-3.0/TAGS; and file ending in .el should
  58. use the TAGS file /usr/local/emacs/src/TAGS; and anything in or below the
  59. directory /jbw/gnu/ should use the TAGS file /usr15/degree/stud/jbw/gnu/TAGS.
  60. A file called something like \"/usr/jbw/foo.el\" would use both the TAGS files
  61. /usr/local/emacs/src/TAGS and /usr15/degree/stud/jbw/gnu/TAGS (in that order)
  62. because it matches both patterns.
  63.  
  64. If the buffer-local variable `buffer-tag-table' is set, then it names a tags
  65. table that is searched before all others when find-tag is executed from this
  66. buffer.
  67.  
  68. If there is a file called \"TAGS\" in the same directory as the file in 
  69. question, then that tags file will always be used as well (after the
  70. `buffer-tag-table' but before the tables specified by this list.)
  71.  
  72. If the variable tags-file-name is set, then the tags file it names will apply
  73. to all buffers (for backwards compatibility.)  It is searched first.
  74. ")
  75. (defvar buffer-tag-table nil "\
  76. *The name of one TAGS table to be used for this buffer in addition to the
  77. TAGS tables that the variable `tag-table-alist' specifies.  You can set this
  78. with meta-x set-buffer-tag-table.  See the documentation for the variable
  79. `tag-table-alist' for more information.")
  80. (make-variable-buffer-local 'buffer-tag-table)
  81. (defvar tags-file-name nil "\
  82. *The name of the tags-table used by all buffers.  This is for backwards
  83. compatibility, and is largely supplanted by the variable tag-table-alist.")
  84. (fset 'buffer-tag-table-list #[nil "└ë ½ä \nB─╞P!½å╞P\nB«ä╚ P    \n \n½┤\n@@ë;½è╠\n@@ \"¬ä└═╬Žô└╧╨Åë;½å    \nB¬ä╤╥!ê\nAë\n¼L*\n¼ê¼ä╘╒!ê½å\nCñ╓╫\n\"╪└\n\"ë¼ä╤┘!ê┌\nƒ!*ç" [nil expression result buffer-tag-table file-readable-p default-directory "TAGS" buffer-file-name buffer-name tag-table-alist alist key string-match (eval expression) ((error)) (byte-code "└    @A!ç" [eval alist] 2) ((error)) error "Expression in tag-table-alist evaluated to non-string" tags-file-name call-interactively visit-tags-table mapcar #[(name) "└    !½ä    ┬P├    !¡êè─    !qê)ç" [file-directory-p name "TAGS" file-readable-p get-tag-table-buffer buffer-file-name] 2] delq "Buffer has no associated tag tables" tags-remove-duplicates] 4 "\
  85. Returns a list (ordered) of the tags tables which should be used for 
  86. the current buffer."])
  87. (fset 'visit-tags-table #[(file) "┴ÿ½ä┬ëç─!┼!½à─╞\"ëç" [file "" nil tags-file-name expand-file-name file-directory-p "TAGS"] 3 "\
  88. Tell tags commands to use tags table file FILE first.
  89. FILE should be the name of a file created with the `etags' program.
  90. A directory name is ok too; it means file TAGS in that directory." (byte-code "└┴\n├─\n\"┼$Cç" [read-file-name "Visit tags table: (default TAGS) " default-directory expand-file-name "TAGS" t] 6)])
  91. (fset 'set-buffer-tag-table #[(file) "¼ä┴┬!ê├!─!½ä┼P╞!¼à┴╟\"êëç" [file error "No TAGS file name supplied" expand-file-name file-directory-p "TAGS" file-exists-p "TAGS file missing: %s" buffer-tag-table] 3 "\
  92. In addition to the tags tables specified by the variable `tag-table-alist',
  93. each buffer can have one additional table.  This command sets that.
  94. See the documentation for the variable `tag-table-alist' for more information." (byte-code "└┴┬ ─$Cç" [read-file-name "Visit tags table: (directory sufficient) " nil default-directory t] 5)])
  95. (defconst tag-table-completion-status nil "\
  96. Indicates whether a completion table has been built, or has explicitly not 
  97. been built.  this is nil, t, or 'disabled.")
  98. (make-variable-buffer-local 'tag-table-completion-status)
  99. (defvar make-tags-files-invisible nil "\
  100. *If true, TAGS-files will not show up in buffer-lists or be 
  101. selectable (or deletable.)")
  102. (defconst tag-table-files nil "\
  103. If the current buffer is a TAGS table, this holds a list of the files 
  104. referenced by this file, or nil if that hasn't been computed yet.")
  105. (make-variable-buffer-local 'tag-table-files)
  106. (fset 'get-tag-table-buffer #[(tag-table) ";¼à┴┬\"ê├─!½ä─!┼ëë╔!ë¼ö╩!½è╦!╠¬à┴═\"êèqê½ö½É╧╨╤ \"½ë╥╙╘╤ P!!ê╒!¼Ö╓╫╪\"!½æ┘╠ë\"ê╠=½â┼┼▄f▌=¼à┴▐\"ê▀>¼â╠½» ┼=¼ª ╠=¼Ö ß=½ÄΓ πW¼ìΣ╫σ\"!¬â┴µ!½çτΦΘÅê¬âΩ)+ç" [tag-table error "Bad tags file name supplied: %s" fboundp symlink-expand-file-name nil check-name build-completion buf get-file-buffer file-readable-p find-file-noselect t "No such tags file: %s" make-tags-files-invisible string-match "\\`[^ ]" buffer-name rename-buffer generate-new-buffer-name " " verify-visited-file-modtime yes-or-no-p format "Tags file %s has changed, read new contents? " revert-buffer tag-table-completion-status tag-table-files 1 12 "File %s not a valid tags file" (t disabled) tags-build-completion-table ask buffer-size 20000 y-or-n-p "Build tag completion table for %s? " "tags-build-completion-table is not t, nil, or ask." foo (byte-code "└ ê┴└ç" [add-to-tag-completion-table t tag-table-completion-status] 1) ((quit (byte-code "└┬─┬!ç" [nil tag-table-completion-status t quit-flag eval] 2))) disabled] 5 "\
  107. Returns a buffer visiting the give TAGS table, reverting if appropriate,
  108. and possibly building a completion-table."])
  109. (fset 'file-of-tag #[nil "`└ëèebê` W½¢─yê└ê┼└xê`╞p!\nbê─yê    uê¬`\nSbê`╟yê`{,ç" [nil size prev opoint 1 "^,\n" read 0] 3 "\
  110. Return the file name of the file whose tags point is within.
  111. Assumes the tag table is the current buffer.
  112. File name returned is relative to tag table file's directory."])
  113. (fset 'tag-table-files #[(tag-table) "è└    !qê\n¼┐├ëëebêm¼¡╟yê├ê╚├xê`╔p!bê╩`Sè╦yê`){ \"B╟yê uê¬Pƒ+\n)ç" [get-tag-table-buffer tag-table tag-table-files nil size prev files 1 "^,\n" read expand-file-name 0 default-directory] 3 "\
  114. Returns a list of the files referenced by the named TAGS table."])
  115. (fset 'buffer-tag-table-files #[nil "└┴┬├─ \"\"ç" [apply append mapcar tag-table-files buffer-tag-table-list] 5 "\
  116. Returns a list of all files referenced by all TAGS tables that 
  117. this buffer uses."])
  118. (byte-code "└┴!¼à┬├─\"┼╞Mê╟╚Mê┼╟KMê╔\n╦ ═╧└ç" [boundp tag-completion-table make-vector 511 0 intern-tag-symbol (macro . #[(tag) "└┴┬├ ┼E╞╟»╚Eç" [progn setq tag-symbol intern tag tag-completion-table tag-symbol-tables (and (boundp tag-symbol) (symbol-value tag-symbol)) (or (memq tag-table-symbol tag-symbol-tables) (set tag-symbol (cons tag-table-symbol tag-symbol-tables)))] 6]) intern-tag-symbol2 #[(tag) "└    \n\"─ !¡é J>«å BLç" [intern tag tag-completion-table tag-symbol boundp tag-symbol-tables tag-table-symbol] 3] "DEFUN[     ]*(\"\\([^\"]+\\)\",[     ]*\\(\\(\\sw\\|\\s_\\)+\\)," tags-DEFUN-pattern ".*[     ]+\\([^ []+\\)\\[" tags-array-pattern "\\(.*[     ]+\\)?\\(\\(\\sw\\|\\s_\\)+\\)[ ();,    ]*" tags-def-pattern "^ \n\\([^,]+\\),[0-9]+\n" tags-file-pattern] 3)
  119. (fset 'add-to-tag-completion-table #[nil "└┴\n\"êebê├\n \"┼ ╞ëëëëëëë    \n  ╤Ä╥!âR╘òbê╒ö╒ò{╓!╞╞╞ ╞ ┘=¼¢½ù▄@@\"½å@AA¬a*½è├▌!▐P!½Ä▀!½êαJ!ê¬àαß !êm¼\ngΓ=¼π=½ú╞╥Σ!)½Ü╥%!¼äµτ!ê╒ö╒ò{ ΦöΦò{ ¬░╥Θ!¼½π=½ÿ╥Ω!½ô╥+!¼äµ∞!ê╒ö╒ò{ ¬ì╥-!½çΦöΦò{  ½ó├ \"\n▀\n!¡â\nJ>¼ë\nBLê ½ó├ \"\n▀\n!¡â\nJ>¼ë\nBLê╒yêéƒ)m¼äµε!ê.\n└∩\n\"ç" [message "Adding %s to tags completion table..." buffer-file-name intern tag-completion-table syntax-table nil file-type-syntax-table tag-symbol-tables eol-point tag-symbol name2 name file-type filename original-syntax-table tag-table-symbol ((set-syntax-table original-syntax-table)) looking-at tags-file-pattern 0 1 file-name-sans-versions auto-mode-alist system-type vax-vms case-fold-search alist string-match symbol-name "-syntax-table" boundp set-syntax-table standard-syntax-table 12 c-mode "DEFUN[     ]" tags-DEFUN-pattern error "DEFUN doesn't fit pattern" 2 "\\s " ".*\\[" tags-array-pattern "array definition doesn't fit pattern" tags-def-pattern "Bad TAGS file" "Adding %s to tags completion table...done"] 10 "\
  120. Sucks the current buffer (a TAGS table) into the completion-table."])
  121. (defvar find-tag-default-hook nil "\
  122. ****Function to call to create a default tag.
  123. Make it buffer-local in a mode hook.
  124. The function is called with no args.")
  125. (defvar find-tag-hook nil "\
  126. ****Function to call after a hook is found.
  127. Make it buffer-local in a mode hook.
  128. The function is called with no args.")
  129. (byte-code "└┴Mê┬├Mê─┼Mç" [find-tag-default #[nil "└┴!½ï    ┬>¼å├─┼Å«╣èhz╞>¼è╟╚!¼à╔uê¬v╟╩!½à╔uê¬v╦╩╠═#¡û╬╔uê`╧╨!ê╟╤!½à╔uê¬v`{!)ç" [boundp find-tag-default-hook (nil find-tag-default) data (funcall find-tag-default-hook) ((error (byte-code "└┴\n\"ê├─!ê┼ç" [message "value of find-tag-default-hook signalled error: %s" data sit-for 1 nil] 3))) (119 95) looking-at "\\sw\\|\\s_\\|\\'" 1 "\\sw\\|\\s_" re-search-backward nil t regexp-quote forward-sexp -1 "\\s'"] 4] tag-completion-predicate #[(tag-symbol) "└    !¡ë    Jë¡â├─ìç" [boundp tag-symbol tag-symbol-tables found (byte-code "¡Æ@    >½à┬├─\"êAë¼o┼ç" [tag-symbol-tables buffer-tag-table-list throw found t nil] 4)] 2] buffer-tag-table-symbol-list #[nil "└┴┬ \"ç" [mapcar #[(table-name) "└    \n\"ç" [intern table-name tag-completion-table] 3] buffer-tag-table-list] 3]] 2)
  130. (defvar find-tag-history nil "\
  131. History list for find-tag-tag")
  132. (fset 'find-tag-tag #[(prompt) "└ ┬ ──╟    ½ê╚╔\n    #¬é\n ╠─ë═&ë╬ÿ½ä    C¬é,ç" [find-tag-default default buffer-tag-table-symbol-list buffer-tag-table-list nil tag-symbol-tables tag-name completing-read format "%s(default %s) " prompt tag-completion-table tag-completion-predicate find-tag-history ""] 8])
  133. (defvar last-tag-data nil "\
  134. Information for continuing a tag search.
  135. Is of the form (TAG POINT TAG-TABLE TAG-TABLE ...).")
  136. (defvar tags-loop-form nil "\
  137. Form for tags-loop-continue to eval to process one file.
  138. If it returns nil, it is through with one file; move on to next.")
  139. (autoload 'get-symbol-syntax-table "symbol-syntax")
  140. (fset 'find-tag-internal #[(tagname) "    ?    :┬ëëëëëëëëëëëë    \n  ½â    @½ÆAA@A@ ¬ç╘ ╒ ¼å╓╫    \"½¼╪½ê┘    ┘Q¬à┌    !╓╫\"½è█òS▄Iê¬o▌▐ !¬å    ▐ è┼▀ìêαß!êΓπ ! `Sè█yê`){\nαΣ!êσp!        `Dñ)µ !èqêèî~êτΦΘ\n!P    ¼âe    ¼£    Zbêo¼ÆΩ     \\╪#δ_¬a¼ÄΩ ┬╪#¼ç∞φ  #ê█yê`    +    .Bç" [find-tag-hook tagname nil syn-tab pat found offset buf target startpos linebeg file tag-table-point tag-tables tag-target symbol-border exact next local-find-tag-hook last-tag-data buffer-tag-table-list 1 string-match "\\\\_" t "\\_" copy-sequence 0 98 get-symbol-syntax-table syntax-table (byte-code "½╗┴@!qê┬p!ê «üebê─┼ ─╚    !ê╩Ä╦ ─═#½î╬╧!½s╨╤═\"ê¬l+Aë¼E╥╙½â╒¬ü╓½â╪¬ü┘$ç" [tag-tables get-tag-table-buffer bury-buffer tag-table-point nil syntax-table case-fold-search osyn set-syntax-table syn-tab ((set-syntax-table osyn)) re-search-forward tag-target t looking-at "[^\n]*" throw found error "No %sentries %s %s" next "more " "" exact "matching" "containing" tagname] 6) search-forward "" expand-file-name file-of-tag "," read find-file-noselect 1000 "^" regexp-quote re-search-forward 3 error "%s not found in %s"] 16 "\
  141. Foo"])
  142. (fset 'find-tag #[(tagname &optional other-window) "\n?─\n!ë@A ½å╔>¼â╩ ê ½ç╠!ê¬à═!ê~ê╬ êbê½à ê¬å    ½â     ê-╧╨ëE╥ç" [find-tag-hook local-find-tag-hook tagname next find-tag-internal result tag-buf tag-point last-command (find-tag find-tag-other-window tags-loop-continue) push-tag-mark other-window pop-to-buffer switch-to-buffer push-mark find-tag nil tags-loop-form t] 4 "\
  143. *Find tag whose name contains TAGNAME.
  144.  Selects the buffer that the tag is contained in
  145. and puts point at its definition.
  146.  If TAGNAME is a null string, the expression in the buffer
  147. around or before point is used as the tag name.
  148.  If called interactively with a numeric argument, searches for the next tag
  149. in the tag table that matches the tagname used in the previous find-tag.
  150.  If second arg OTHER-WINDOW is non-nil, uses another window to display
  151. the tag.
  152.  
  153. This version of this function supports multiple active tags tables,
  154. and completion.
  155.  
  156. Variables of note:
  157.  
  158.   tag-table-alist        controls which tables apply to which buffers
  159.   tags-file-name        a default tags table
  160.   tags-build-completion-table   controls completion behavior
  161.   buffer-tag-table        another way of specifying a buffer-local table
  162.   make-tags-files-invisible    whether tags tables should be very hidden
  163.   tag-mark-stack-max        how many tags-based hops to remember" (byte-code "½é┴ç┬├!─Dç" [current-prefix-arg (nil nil) find-tag-tag "Find tag: " nil] 2)])
  164. (fset 'find-tag-other-window #[(tagname &optional next) "½à┴┬├\"ç┴ ├\"ç" [next find-tag nil t tagname] 3 "\
  165. *Find tag whose name contains TAGNAME.
  166.  Selects the buffer that the tag is contained in in another window
  167. and puts point at its definition.
  168.  If TAGNAME is a null string, the expression in the buffer
  169. around or before point is used as the tag name.
  170.  If second arg NEXT is non-nil (interactively, with prefix arg),
  171. searches for the next tag in the tag table
  172. that matches the tagname used in the previous find-tag.
  173.  
  174. This version of this function supports multiple active tags tables,
  175. and completion.
  176.  
  177. Variables of note:
  178.  
  179.   tag-table-alist        controls which tables apply to which buffers
  180.   tags-file-name        a default tags table
  181.   tags-build-completion-table   controls completion behavior
  182.   buffer-tag-table        another way of specifying a buffer-local table
  183.   make-tags-files-invisible    whether tags tables should be very hidden
  184.   tag-mark-stack-max        how many tags-based hops to remember" (byte-code "½é┴ç┬├!Cç" [current-prefix-arg (nil t) find-tag-tag "Find tag other window: "] 2)])
  185. (fset 'lisp-complete-symbol #[nil "└ ┬Ä ½ä─ !êè┼╞!êgz╟U½à╞uê¬uh)╚=    ╩     ½â╠¬ü═    ?¡ü╬#+ç" [syntax-table buffer-syntax ((set-syntax-table buffer-syntax)) lisp-mode-syntax-table set-syntax-table backward-sexp 1 39 40 fn complete-symbol obarray fboundp #[(sym) "└    !«ê┬    !«â├    !ç" [boundp sym fboundp symbol-plist] 2] #[(list) "└\n½Ö├─\n@!!½å\n@┼D¬é\n@    B\nAë¼g    ƒ)ç" [nil new list fboundp intern " <f>"] 4]] 4 "\
  186. *Perform completion on Lisp symbol preceding point.
  187. That symbol is compared against the symbols that exist
  188. and any additional characters determined by what is there
  189. are inserted.
  190. If the symbol starts just after an open-parenthesis,
  191. only symbols with function definitions are considered.
  192. Otherwise, all symbols with function definitions, values
  193. or properties are considered." nil])
  194. (fset 'complete-symbol #[(&optional table predicate prettify) "`è┴┬!êgz├U½à┬uê¬u`)ë{«é╚    #ë\n╦=«┴\n¼ë╠═\"ê╬ ¬┤\nÿ¼ë |ê\nc¬Ñ╠╧!ê╨    #½ç!╙É╘!æê)╠╒╓\"-ç" [end backward-sexp 1 39 beg pattern table obarray try-completion predicate completion t message "Can't find completion for \"%s\"" ding "Making completion list..." all-completions list prettify "*Help*" display-completion-list "Making completion list...%s" "done"] 5])
  195. (fset 'tag-complete-symbol #[nil "└ ┬─╞\"*ç" [buffer-tag-table-symbol-list buffer-tag-table-list nil tag-symbol-tables complete-symbol tag-completion-table tag-completion-predicate] 3 "\
  196. The function used to do tags-completion (using 'tag-completion-predicate)." nil])
  197. (defvar next-file-list nil "\
  198. List of files for next-file to process.")
  199. (fset 'next-file #[(&optional initialize) "½â┴ \n¼ä├─!ê\n@╞!╚    \nA¼ê╩!╦    ╠╦\"ê~ê`eV½ê═╚╦\"êebê    +ç" [initialize buffer-tag-table-files next-file-list error "All files processed." file get-file-buffer buf nil new find-file-noselect t switch-to-buffer push-mark] 3 "\
  200. Select next file among files in current tag table(s).
  201. Non-nil argument (prefix arg, if interactive) initializes to the beginning 
  202. of the list of files in the (first) tag table." "P"])
  203. (defvar tags-search-nuke-uninteresting-buffers t "\
  204. *If t (the default), tags-search and tags-query-replace will only
  205. keep newly-visited buffers if they contain the search target.")
  206. (fset 'tags-loop-continue #[(&optional first-time) "└ë ½î─┼!┴╞\"ê┼╚    !¼£\n½î╩ ¼ê ½ä╠p!ê─ ┴╞\"ê┼¬^═p!ê    ¡à┴╬\"*ç" [nil message buf-is-new first-time next-file t "Scanning file %s..." buffer-file-name eval tags-loop-form buffer-modified-p tags-search-nuke-uninteresting-buffers kill-buffer switch-to-buffer "Scanning file %s...done"] 3 "\
  207. Continue last \\[tags-search] or \\[tags-query-replace] command.
  208. Used noninteractively with non-nil argument
  209. to begin such a command.  See variable tags-loop-form." nil])
  210. (fset 'tags-search #[(regexp) "┴ܽè\n@├=½ä─┼!ç├┼╞F─╞!ç" [regexp "" tags-loop-form re-search-forward tags-loop-continue nil t] 4 "\
  211. Search through all files listed in tag table for match for REGEXP.
  212. Stops when a match is found.
  213. To continue searching for next match, use command \\[tags-loop-continue].
  214.  
  215. See documentation of variable tag-table-alist." "sTags search (regexp): "])
  216. (fset 'tags-query-replace #[(from to &optional delimited) "└┴┬ ─┼FD╞╟ ┼ë    ??»DE\n╦┼!ç" [and save-excursion re-search-forward from nil t not perform-replace to delimited tags-loop-form tags-loop-continue] 9 "\
  217. Query-replace-regexp FROM with TO through all files listed in tag table.
  218. Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
  219. If you exit (C-G or ESC), you can resume the query-replace
  220. with the command \\[tags-loop-continue].
  221.  
  222. See documentation of variable tag-table-alist." "sTags query replace (regexp): \nsTags query replace %s by: \nP"])
  223. (fset 'list-tags #[(string) "└É┴┬!ê┴ !ê─ êè┼ ê╞bê╟╚ ╔Q!ê╞yêm«â╩╦!?¡Æ┴`╠═wê`{!ê─ ê╞yê¬e)æç" ["*Tags List*" princ "Tags in file " string terpri visit-tags-table-buffer 1 search-forward " \n" "," looking-at " " "^" nil] 5 "\
  224. Display list of tags in file FILE.
  225. FILE should not contain a directory spec
  226. unless it has one in the tag table." "sList tags (in file): "])
  227. (fset 'tags-apropos #[(string) "└É┴┬!ê├ !ê┼ êè╞ ê╟bê╚ ╔╩#¡ò╦yê┴`╠╔wê`{!ê┼ ê╟yê¬d)æç" ["*Tags List*" princ "Tags matching regexp " prin1 string terpri visit-tags-table-buffer 1 re-search-forward nil t 0 "^"] 5 "\
  228. Display list of all tags in tag table REGEXP matches." "sTag apropos (regexp): "])
  229. (fset 'visit-tags-table-buffer #[nil "¼ä┴┬!ê├!«à─╞!qê╟├!!¼î╚╔!½ç╩╦ë\"ê─╠f═=«ä╬╧\"ç" [tags-file-name call-interactively visit-tags-table get-file-buffer nil tag-table-files find-file-noselect verify-visited-file-modtime yes-or-no-p "Tags file has changed, read new contents? " revert-buffer t 1 12 error "File %s not a valid tag table"] 3 "\
  230. Select the buffer containing the current tag table.
  231. This is a file whose name is in the variable tags-file-name."])
  232. (byte-code "└┴!¼é┬    ó├=½â    C─    >¼ä─    B─┼Mê─ ê╞╟!½êè╟qê─ ê)┬ç" [boundp emacs-lisp-mode-hook nil lambda setup-emacs-lisp-default-tag-hook #[nil "┴=¡ç┬├!ê─ëç" [major-mode emacs-lisp-mode make-variable-buffer-local find-tag-default-hook emacs-lisp-default-tag] 2] get-buffer "*scratch*"] 2)
  233. (fset 'emacs-lisp-default-tag #[nil "└ «é┴ ë¡â├\n!)ç" [variable-at-point function-called-at-point tag symbol-name] 3 "\
  234. Function to return a default tag for Emacs-Lisp mode."])
  235. (byte-code "└    ┬\"¼å├    ┬─#ê└ç" [lookup-key esc-map "?" define-key display-tag-info] 4)
  236. (fset 'display-tag-info #[(tagname) "└    !ë@\nA┼┼┼┼    ┼\n┼ è qêèî~ê bê┼ ═╬!)½Σ╧╨!ê╤╨!ê╥p!╧╨!ê`╙╨!ê`{\n╧╘!ê`╙╨!ê`{╧╒!ê`╙╨!ê`{    ╓╨!ê╧╒!ê`╙╨!ê`{ ╫╪\n     ÿ½ä¬ç╫┘    #%¬ï┌yê`┼ê`{+█▄\"ê.    ▌▀ç" [find-tag-internal tagname results tag-buf tag-point nil info lname min max fname args case-fold-search looking-at "^DEFUN[     ]" forward-sexp 1 down-list read backward-sexp 3 2 backward-up-list format "Elisp: %s, C: %s %s, #args: %s" "from %s to %s" 0 message "%s" (display-tag-info nil) tags-loop-form t] 10 "\
  237. Prints a description of the first tag matching TAGNAME in the echo area.
  238. If this is an elisp function, prints something like \"(defun foo (x y z)\".
  239. That is, is prints the first line of the definition of the form.
  240. If this is a C-defined elisp function, it does something more clever." (byte-code "½é┴ç┬├!Cç" [current-prefix-arg (nil) find-tag-tag "Display tag info: "] 2)])
  241. (byte-code "└┴!¼é┬└├!¼é┬┬ç" [boundp tag-mark-stack1 nil tag-mark-stack2] 2)
  242. (defvar tag-mark-stack-max 16 "\
  243. *The maximum number of elements kept on the mark-stack used
  244. by tags-search.  See also the commands push-tag-mark (\\[push-tag-mark])
  245. and pop-tag-mark. (\\[pop-tag-mark]).")
  246. (byte-code "└┴Mê┬├Mê─┼Mê╞╚\"╔>½ç╩╚╦#ê└ç" [push-mark-on-stack #[(stack-symbol &optional max-size) "J┬     B ½ò    G V½Å     ¢@─ëôê S    ¢─íê    L)ç" [stack-symbol stack point-marker max-size nil] 3] pop-mark-from-stack #[(stack-symbol1 stack-symbol2 &optional max-size) "J«â┴┬!ë@┼ ! ALê¼ä┴╟!ê╚!¼ä┴╔!ê╩  \"ê═!ê~ê╬ !b+ç" [stack-symbol1 error "No more tag marks on stack" stack marker marker-buffer m-buf "Marker has no buffer" buffer-name "Buffer has been killed" push-mark-on-stack stack-symbol2 max-size switch-to-buffer marker-position] 4] push-tag-mark #[nil "└┴\n\"ç" [push-mark-on-stack tag-mark-stack1 tag-mark-stack-max] 3] lookup-key esc-map "*" (nil undefined) define-key pop-tag-mark] 4)
  247. (fset 'pop-tag-mark #[(arg) "¼å┴┬├ #ç┴├┬ #ç" [arg pop-mark-from-stack tag-mark-stack1 tag-mark-stack2 tag-mark-stack-max] 4 "\
  248. find-tag maintains a mark-stack seperate from the \\[set-mark-command] mark-stack.
  249. This function pops (and moves to) the tag at the top of this stack." "P"])
  250. (provide 'tags)
  251.